unit ujfglCard;
{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  Mtsobj, ComObj, jfglComSrv_TLB, uJfglCardMaint, StdVcl;

type
  TjfglCard = class(TMtsAutoObject, IjfglCard)
  protected
    function Card_Cz_Process(const Sjzh, Cno, CPwd, Host: WideString;
      var Res_Str: WideString): OleVariant; safecall;
    function Card_Is_Exists(const Cno: WideString): OleVariant; safecall;
    function Card_Is_Used(const Cno: WideString): OleVariant; safecall;
    function Card_Pwd_Is_OK(const Cno, Pwd: WideString): OleVariant; safecall;
    function Get_Card_Je(const Cno: WideString): OleVariant; safecall;
    function Card_Cz_Process_39(const Sjzh, CId, Cno: WideString; je: Integer;
      const Host, Xq, Czy: WideString; var Res_Str: WideString): OleVariant;
      safecall;

  end;

implementation

uses ComServ;

function TjfglCard.Card_Cz_Process(const Sjzh, Cno, CPwd, Host: WideString;
  var Res_Str: WideString): OleVariant;
var
  obj:TJfglCardMaint;
begin
  obj := TJfglCardMaint.Create;
  try
    try
      Result := obj.Card_Cz_Process(Sjzh,Cno,CPwd,Host,Res_Str);
      SetComplete;
    except
      SetAbort;
    end;
  finally
    obj.Free;
  end;
end;

function TjfglCard.Card_Is_Exists(const Cno: WideString): OleVariant;
var
  obj:TJfglCardMaint;
begin
  obj := TJfglCardMaint.Create;
  try
    try
      Result := obj.Card_Is_Exists(Cno);
      SetComplete;
    except
      SetAbort;
    end;
  finally
    obj.Free;
  end;
end;

function TjfglCard.Card_Is_Used(const Cno: WideString): OleVariant;
var
  obj:TJfglCardMaint;
begin
  obj := TJfglCardMaint.Create;
  try
    try
      Result := obj.Card_Is_Used(Cno);
      SetComplete;
    except
      SetAbort;
    end;
  finally
    obj.Free;
  end;
end;

function TjfglCard.Card_Pwd_Is_OK(const Cno, Pwd: WideString): OleVariant;
var
  obj:TJfglCardMaint;
begin
  obj := TJfglCardMaint.Create;
  try
    try
      Result := obj.Card_Pwd_Is_OK(Cno,Pwd);
      SetComplete;
    except
      SetAbort;
    end;
  finally
    obj.Free;
  end;
end;

function TjfglCard.Get_Card_Je(const Cno: WideString): OleVariant;
var
  obj:TJfglCardMaint;
begin
  obj := TJfglCardMaint.Create;
  try
    try
      Result := obj.Get_Card_Je(Cno);
      SetComplete;
    except
      SetAbort;
    end;
  finally
    obj.Free;
  end;
end;

function TjfglCard.Card_Cz_Process_39(const Sjzh, CId, Cno: WideString;
  je: Integer; const Host, Xq, Czy: WideString;
  var Res_Str: WideString): OleVariant;
var
  obj:TJfglCardMaint;
begin
  obj := TJfglCardMaint.Create;
  try
    try
      Result := obj.Card_Cz_Process_39(Sjzh,CId,Cno,je,Host,Xq,Czy,Res_Str);
      SetComplete;
    except
      SetAbort;
    end;
  finally
    obj.Free;
  end;
end;

initialization
  TAutoObjectFactory.Create(ComServer, TjfglCard, Class_jfglCard,
    ciMultiInstance, tmApartment);
end.
